home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CON-03A.ZIP / PIRACY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-16  |  1.8 KB  |  66 lines
  1. (* Conspiracy BBS Software Version 0.02α (c)1995 Grooven Designs      *)
  2. (* Coded by Paul Maggs (flick) / Grooven Designs                      *)
  3.  
  4. (* Conspiracy main executable file *)
  5.  
  6. {$M $4000,0,0 }
  7.  
  8. uses
  9.   dos,
  10.   crt,
  11.   funct,
  12.   login,
  13.   mmenu,
  14.   ansi_drv,
  15.   configur,
  16.   ueditor,
  17.   wfc,
  18.   oneliner,
  19.   pager,
  20.   comms;
  21.  
  22.  
  23. procedure paramaters;
  24. begin
  25.   if (paramstr(1)='/?') then begin
  26.     writeln;
  27.     writeln('*:- (conspiracy v0.2α) --------------------------------:*');
  28.     writeln('|| /?        - this help screen                        ||');
  29.     writeln('|| /i        - information on groovy(tm) v0.01α        ||');
  30.     writeln('|| /CONFIG   - Conspiracy Configuration                ||');
  31.     writeln('|| /USER     - Conspiracy User Editor                  ||');
  32.     writeln('|| /USERPACK - Conspiracy Userbase Packer              ||');
  33.     writeln('*:-------------------------------- (grooven designs ) -:*');
  34.     writeln;
  35.     writeln(' -------* thank-you for choosing conspiracy');
  36.     halt;
  37.   end;
  38.   if (paramstr(1)='/i') then begin
  39.     writeln;
  40.     writeln('*:- (groovy(tm) v0.2α) --------------------------------:*');
  41.     writeln('|| Conspiracy is coded by Paul Maggs/Grooven Designs   ||');
  42.     writeln('|| Conspiracy WHQ - Groovy(tm) - +61-3-9885-4475       ||');
  43.     writeln('*:-------------------------------- (grooven designs ) -:*');
  44.     writeln;
  45.     writeln(' -------* thank-you for choosing conspiracy');
  46.     halt;
  47.  end;
  48.   if (paramstr(1)='/CONFIG') or (paramstr(1)='/config') then begin
  49.     run_config;
  50.   end;
  51.  if (paramstr(1)='/USER') or (paramstr(1)='/user') then begin
  52.     run_usered;
  53.     halt;
  54.   end;
  55.  
  56.  
  57. end;
  58.  
  59. begin
  60.   checkbreak:=false;
  61.   exec('amiga.exe','');
  62.   if paramstr(1)<>'' then paramaters;
  63.   init_user_file;
  64.   run_wfc;
  65. end.
  66.